home *** CD-ROM | disk | FTP | other *** search
/ CDUTIL 13 / CDUTIL #13 Julio 1995.iso / windows / amipro3 / macros.cmz / NOTES.SMM < prev    next >
Encoding:
INI File  |  1992-11-18  |  6.0 KB  |  405 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Esta macro ejecuta Notes de Lotus.
  19.     Lotus WPD Marketing
  20.     Beginner
  21.     Exec, ActivateApp
  22.     NoAutorun
  23.     714788814
  24.     22
  25.     677631022
  26.     126
  27.     2
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     0
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [tag]
  56.     Est<\a>ndar
  57.     5
  58.     [fnt]
  59.         Tms Rmn
  60.         240
  61.         0
  62.         49152
  63.     [algn]
  64.         1
  65.         1
  66.         0
  67.         0
  68.         0
  69.     [spc]
  70.         17
  71.         0
  72.         1
  73.         0
  74.         0
  75.         1
  76.         100
  77.     [brk]
  78.         4
  79.     [line]
  80.         8
  81.         0
  82.         1
  83.         0
  84.         1
  85.         1
  86.         1
  87.         10
  88.         10
  89.         1
  90.     [spec]
  91.         0
  92.         0
  93.         
  94.         0
  95.         1
  96.         1
  97.         0
  98.         0
  99.         0
  100.         0
  101.     [nfmt]
  102.         24
  103.         1
  104.         2
  105.         ,
  106.         .
  107.         Pts
  108.     Est<\a>ndar
  109.     0
  110.     0
  111. [l1]
  112.     0
  113. [pg]
  114.     2
  115.     49 0 12 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  116.     76 0 0 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  117. [edoc]
  118. <:#293,9025>Macro by <+!>Charlie Pappas<-!>
  119.  
  120. <:#279,9025>
  121.  
  122. <:#279,9025>function execsuite()
  123.  
  124. <:#279,9025>app = "notes.exe"
  125.  
  126. <:#279,9025>appname = "Lotus Notes"
  127.  
  128. <:#279,9025>defdir = "c:\notes"
  129.  
  130. <:#279,9025>ignorekeyboard(2)
  131.  
  132. <:#279,9025>declare missouri(xapp) ' <:f200,QCourier,0,0,255>declare user defined functions
  133.  
  134. <:#279,9025>declare getprofile(xappname)
  135.  
  136. <:#279,9025>declare writeprofile(path, xappname)
  137.  
  138. <:#279,9025>declare tryit(path, xapp)
  139.  
  140. <:#279,9025>defstr path;
  141.  
  142. <:#279,9025>
  143.  
  144. <:#279,9025>if appisrunning(appname) ' <:f200,QCourier,0,0,255>first see if app is already running
  145.  
  146. <:#279,9025>    activateapp(appname) ' <:f200,QCourier,0,0,255>if the app is running, just activate it
  147.  
  148. <:#279,9025>    apprestore(appname) ' <:f200,QCourier,0,0,255>make sure it is not minimized<:f>
  149.  
  150. <:#279,9025>    return 1
  151.  
  152. <:#279,9025>endif
  153.  
  154. <:#279,9025>if 0 = doschdir(defdir) ' <:f200,QCourier,0,0,255>try and change to the default directory for launch
  155.  
  156. <:#279,9025>    if tryit("", app) <;> 31
  157.  
  158. <:#279,9025>        return 1
  159.  
  160. <:#279,9025>    endif
  161.  
  162. <:#279,9025>endif
  163.  
  164. <:#279,9025>if tryit(getprofile(appname), app) <;> 31 ' <:f200,QCourier,0,0,255>if we launch, get out<:f>
  165.  
  166. <:#279,9025>    return 1
  167.  
  168. <:#279,9025>endif
  169.  
  170. <:#279,9025>again:
  171.  
  172. <:#279,9025>if assign(&path, missouri(app)) <<<;> 0 ' <:f200,QCourier,0,0,255>show me where the exe is
  173.  
  174. <:#279,9025>    if tryit(path, app) <;> 31
  175.  
  176. <:#279,9025>        writeprofile(path, appname)
  177.  
  178. <:#279,9025>    else
  179.  
  180. <:#279,9025>        goto again
  181.  
  182. <:#279,9025>    endif
  183.  
  184. <:#279,9025>endif
  185.  
  186. <:#279,9025>end function
  187.  
  188. <:#279,9025>
  189.  
  190. @Function@<:#293,9025>function tryit(path, app) ' <:f200,QCourier,0,0,255>this function attemts to exec the app
  191.  
  192. <:#279,9025>doschdir(path)
  193.  
  194. <:#279,9025>return exec(strcat$(path, app), "")
  195.  
  196. <:#279,9025>end function
  197.  
  198. <:#279,9025>
  199.  
  200. @Function@<:#293,9025>function writeprofile(path, appname) ' <:f200,QCourier,0,0,255>save the path if exec works
  201.  
  202. <:#279,9025>writeprofilestring("LotusApps", appname, path, "amipro2.ini")
  203.  
  204. <:#279,9025>end function
  205.  
  206. <:#279,9025>
  207.  
  208. @Function@<:#293,9025>function getprofile(appname) ' <:f200,QCourier,0,0,255>get the path of successful exec
  209.  
  210. <:#279,9025>defstr path;
  211.  
  212. <:#279,9025>if assign(&path, getprofilestring$("LotusApps", appname, "amipro2.ini")) <<<;> ""
  213.  
  214. <:#279,9025>    return path
  215.  
  216. <:#279,9025>endif
  217.  
  218. <:#279,9025>return getprofilestring$("LotusApps", appname, "amipro.ini")
  219.  
  220. <:#279,9025>end function
  221.  
  222. <:#279,9025>
  223.  
  224. @Function@<:#293,9025>function missouri(app) ' <:f200,QCourier,0,0,255>ask user for location of exe
  225.  
  226. <:#279,9025>defstr box;
  227.  
  228. <:#279,9025>filledit(9001, "*.exe")
  229.  
  230. <:#279,9025>filledit(8007, app)
  231.  
  232. <:#279,9025>if assign(&box, dialogbox(".", "findapp")) <<<;> 1
  233.  
  234. <:#279,9025>    return 0
  235.  
  236. <:#279,9025>endif
  237.  
  238. <:#279,9025>return getcurrentdir$()
  239.  
  240. <:#279,9025>end function
  241.  
  242. <:#279,9025>
  243.  
  244. <:#279,9025>
  245.  
  246. @Function@<:#293,9025>DIALOG findapp
  247.  
  248. -2134376448 7 70 35 200 97 "" "" "B<\z>squeda de la aplicaci<\s>n"
  249.  
  250. <:#279,9025>FONT 8 "Helv"
  251.  
  252. 7 34 59 8 1000 1342177280 "static" "&V<\m>a de acceso:" 0 
  253.  
  254. <:#279,9025>6 45 60 44 9001 1352728579 "listbox" "" 0 
  255.  
  256. 155 5 40 14 1 1342373889 "button" "Aceptar" 0 
  257.  
  258. 155 21 40 14 2 1342373888 "button" "Cancelar" 0 
  259.  
  260. <:#279,9025>68 34 80 8 7999 1342177280 "static" "" 0 
  261.  
  262. 7 6 142 9 1006 1342177280 "static" "Seleccione el directorio donde se halla" 0 
  263.  
  264. <:#279,9025>7 16 107 8 8007 1342177280 "static" "" 0 
  265.  
  266. <:#279,9025>END DIALOG
  267.  
  268. <:#279,9025>
  269.  
  270. >
  271.  
  272. [Embedded]
  273. 00004498
  274. >
  275. [macsum] 6
  276. execsuite 0 0 5 2
  277. tryit 522 2 1 36
  278. writeprofile 603 2 1 41
  279. getprofile 677 1 2 45
  280. missouri 851 1 2 53
  281. findapp 1008 0 -1 64
  282. [macse]
  283. 14 execsuite
  284. 7 "notes.exe"
  285. 8 1
  286. 7 "Lotus Notes"
  287. 8 2
  288. 7 "c:\notes"
  289. 8 3
  290. 0 32 2
  291. 0 1032 "{2}"
  292. 13
  293. 11 00000152
  294. 0 38 "{2}"
  295. 0 1031 "{2}"
  296. 5 1
  297. 15
  298. 9
  299. 5 0
  300. 0 781 "{3}"
  301. 13
  302. 18 0
  303. 11 00000253
  304. 16 tryit "" "{1}"
  305. 13
  306. 5 31
  307. 18 3
  308. 11 00000253
  309. 5 1
  310. 15
  311. 9
  312. 16 getprofile "{2}"
  313. 13
  314. 16 tryit [X] "{1}"
  315. 13
  316. 5 31
  317. 18 3
  318. 11 00000339
  319. 5 1
  320. 15
  321. 9
  322. 16 missouri "{1}"
  323. 13
  324. 0 805 &4 [X]
  325. 13
  326. 5 0
  327. 18 1
  328. 11 00000510
  329. 16 tryit "{4}" "{1}"
  330. 13
  331. 5 31
  332. 18 3
  333. 11 00000497
  334. 16 writeprofile "{4}" "{2}"
  335. 10 00000510
  336. 10 00000339
  337. 6 0
  338. 15
  339. 9
  340. 14 tryit
  341. 0 781 "{0}"
  342. 0 16 "{0}" "{1}"
  343. 13
  344. 0 22 [X] ""
  345. 13
  346. 15
  347. 9
  348. 6 2
  349. 15
  350. 9
  351. 14 writeprofile
  352. 0 287 "LotusApps" "{1}" "{0}" "amipro2.ini"
  353. 6 2
  354. 15
  355. 9
  356. 14 getprofile
  357. 0 286 "LotusApps" "{0}" "amipro2.ini"
  358. 13
  359. 0 805 &2 [X]
  360. 13
  361. 7 ""
  362. 18 1
  363. 11 00000113
  364. 6 2
  365. 15
  366. 9
  367. 0 286 "LotusApps" "{0}" "amipro.ini"
  368. 13
  369. 15
  370. 9
  371. 6 1
  372. 15
  373. 9
  374. 14 missouri
  375. 0 31 9001 "*.exe"
  376. 0 31 8007 "{0}"
  377. 0 26 "." "findapp"
  378. 13
  379. 0 805 &2 [X]
  380. 13
  381. 5 1
  382. 18 1
  383. 11 00000127
  384. 5 0
  385. 15
  386. 9
  387. 0 290
  388. 13
  389. 15
  390. 9
  391. 6 1
  392. 15
  393. 9
  394. DIALOG findapp
  395. -2134376448 7 70 35 200 97 "" "" "B·squeda de la aplicaci≤n" 
  396. FONT 8 "Helv" 
  397. 7 34 59 8 1000 1342177280 "static" "&Vφa de acceso:" 0 
  398. 6 45 60 44 9001 1352728579 "listbox" "" 0 
  399. 155 5 40 14 1 1342373889 "button" "Aceptar" 0 
  400. 155 21 40 14 2 1342373888 "button" "Cancelar" 0 
  401. 68 34 80 8 7999 1342177280 "static" "" 0 
  402. 7 6 142 9 1006 1342177280 "static" "Seleccione el directorio donde se halla" 0 
  403. 7 16 107 8 8007 1342177280 "static" "" 0 
  404. 00004523
  405.